#LOAD FILES
rr<-read_xlsx(paste0( mainDir,"/data/RRdata_all.xlsx"))
rrINT<-read_xlsx(paste0( mainDir,"/data/RRdata_INT.xlsx"))
mmt<-read_xlsx(paste0(mainDir,"/data/summary_all_mmt_af_an.xlsx"))
temp<-read.csv(paste0(mainDir,"/data/mortality_sp_model_exploration_Nov2021.csv"))#

Tempearture

```